function [ vec_wApply ] = setwApply( sys, Tp ,wApply )

output_order=size(sys.C,1);

selectPosition=[];
for i=0:output_order-1;
    selectPosition=[selectPosition,output_order*(wApply-1)+i];
end
selectPosition=selectPosition+1;
selectVec=logical(zeros(1,output_order*Tp));
selectVec(selectPosition)=true;
vec=1:output_order*Tp;
vec_wApply=vec(selectVec);
end

